procedure TForm1.Button1Click(Sender: TObject);
var
  DataField: TStrings;
begin
  DataField := TStringList.Create;
  DataField.Add(Format('%s=%s', ['Alex', '14.05.1984']));
  ShowMessage(DataField.Values['Alex'])
  DataField.Free;
end;
